home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0286.arc / FNPTR.C < prev    next >
Text File  |  1986-02-03  |  896b  |  37 lines
  1. /************************************************************************/
  2. /*                                    */
  3. /*    fnptr.c                                */
  4. /*                                    */
  5. /*    Example Program to test pointers to functions            */
  6. /*                                    */
  7. /*    A. Skjellum                            */
  8. /*    November 29, 1985                        */
  9. /*                                    */
  10. /*                                    */
  11. /*    Computer Language Magazine [C Interpreter Wrap-Up, Feb., 1986]    */
  12. /*                                    */
  13. /************************************************************************/
  14.  
  15. main()
  16. {
  17.     int iter;
  18.     double (*function)();
  19.     double eval();
  20.     double f;
  21.  
  22.     printf("fnptr.c: tests pointers to functions    [29-Nov-85]\n\n");
  23.  
  24.     function = eval;
  25.  
  26.     for(iter = 1; iter <= 10000; iter++)
  27.         f = (*function)(iter);
  28.  
  29.     printf("Result is %e\n",f);
  30. }
  31.  
  32. double eval(i)
  33. int i;
  34. {
  35.     return((double)i);
  36. }
  37.